home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
dde
/
vbxldemo
/
vbexdemo.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-09-25
|
4KB
|
144 lines
VBEXDEMO
VB to Excel Demo
Form1+
Chart
"Excel|f:\excel\GIBound1.Xls"& "Chart 3"-
Data1
"Excel|f:\excel\GIBound1.Xls"
"R3C1"
Label1
Data 1
Data2
'Excel|f:\excel\GIBound1.Xls"
"R3C3"
Label2
Data 2
Data3
"Excel|f:\excel\GIBound1.Xls"
"R3C2"
Label3
Data 3
Label4
Current Topics:
CurrentTopics
BTN_Initiate
Initiate DDE Link
BTN_Update
&Update
BTN_Quit
&Quit
Form_Click
Form_LinkOpen
Cancel
Chart_Clicki
Chart_LinkOpen
@ Form_Load
EXCEL
GIBOUND
RearDistance_ChangeE
BTN_Update_Clicky
RearDistanceW
FloorDistance
Distance`
SideDistance
BTN_Quit_Click
Sheet
Chart&
ErrorHandler
EerrorHandler
Text1
LinkMode
NONE>
LinkTopic
LinkItem-
ErrorTypew
FloorDistance_Change
KillBarsq
InString
ifTemp6
SideDistance_Change.
textW
SideN
Label1_Click^
Label2_Clickn
Label3_Click~
Label4_Click
Label5_Click
RearDistance_DragDrop
Source
Picture
ClipBoard
Form1
Fomr1
Form_LinkClose
Form_LinkError
LinkErr
Form_LinkExecute
CmdStr
RearDistance_LinkCloseh
Text1_Change
CurrentTopics
Data1
Data1_Change0
Data2
Data2_Change
Data3
Data3_ChangeQ
ZapCRLF
StringToCheck
GetModuleHandle
lpModuleName
AppName
MyPath
MySheet
RtnVal
AppWnd
unitlg
CurrentTopics_Change
BTN_Initiate_Click
BTN_Initiate
Enabled
FALSE
Data1_GotFocus
SelStart
SelLen
SelLength
Data2_GotFocus
Data3_GotFocus
kernel
Form_Load
EXCEL.EXE"
F:\EXCEL\"
Set to your path
F:\EXCEL\VBEXDEMO.XLS"
Set to your path
See if Excel is running
It's not running
so start it up
BTN_Update_Click
Send out the new infot
Get the updated chartu
BTN_Quit_Click
Data1_Change
Lose CRLF that Excel appends
Data2_Change
Lose CRLF that Excel appends
Data3_Change
Lose CRLF that Excel appends
ZapCRLF
BTN_Initiate_Click
EXCEL"
F:\EXCEL\"
VBEXDEMO.XLS
= cell C2"
= cell C3"
= cell C4"
Chart 1
Chart 1"
Excel|System
Topics
Don't want to initiate again
Data1_GotFocus
Data2_GotFocus
Data3_GotFocus